Mac Mania 2

home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Algorithms Folder / upload / fft.bas < prev next >
Unknown | 1994-05-18 | 2.1 KB | [ZTKN/ZBAS]
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
id metadata
key	value
macFileType	`[ZTKN]`
macFileCreator	`[ZBAS]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3a 00 00 00 00 00 00 | f0 5a 63 6f 70 79 72 69 |.:......|.Zcopyri|
|00000010| 67 68 74 20 31 39 39 34 | 20 62 79 20 53 74 65 70 |ght 1994| by Step|
|00000020| 68 65 6e 20 42 6f 65 72 | 6e 65 72 2c 20 65 79 65 |hen Boer|ner, eye|
|00000030| 20 73 79 73 74 65 6d 73 | 2d 20 00 00 00 44 00 00 | systems|- ...D..|
|00000040| ff c4 00 00 f0 5a 43 49 | 53 2d 37 34 32 30 33 2c |.....ZCI|S-74203,|
|00000050| 32 32 31 37 20 20 20 41 | 4f 4c 2d 49 53 49 53 49 |2217   A|OL-ISISI|
|00000060| 4e 43 20 20 42 4d 55 47 | 2c 20 49 4e 54 45 52 4e |NC  BMUG|, INTERN|
|00000070| 45 54 20 45 59 45 53 59 | 53 40 43 52 4c 2e 43 4f |ET EYESY|S@CRL.CO|
|00000080| 4d 00 00 2c 00 00 ff ba | 00 00 f0 5a 4d 41 59 20 |M..,....|...ZMAY |
|00000090| 4e 4f 54 20 42 45 20 55 | 53 45 44 20 46 4f 52 20 |NOT BE U|SED FOR |
|000000a0| 43 4f 4d 4d 45 52 43 49 | 41 4c 20 47 41 49 4e 00 |COMMERCI|AL GAIN.|
|000000b0| 00 14 00 04 ff d2 00 00 | f0 5a 54 52 4f 4e 20 62 |........|.ZTRON b|
|000000c0| 20 20 20 20 20 00 00 4e | 00 05 ff ea 00 00 f0 13 |     ..N|........|
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 66 61 73 74 20 66 |        |  fast f|
|000000e0| 6f 75 72 69 65 72 20 74 | 72 61 6e 73 66 6f 72 6d |ourier t|ransform|
|000000f0| 20 20 73 65 64 67 65 77 | 69 63 6b 20 41 4c 47 4f |  sedgew|ick ALGO|
|00000100| 52 49 54 48 49 4d 53 20 | 20 63 68 20 33 36 20 70 |RITHIMS | ch 36 p|
|00000110| 67 20 34 37 31 00 00 42 | 00 06 ff b0 00 00 f2 08 |g 471..B|........|
|00000120| 20 23 31 2c 20 22 46 46 | 54 20 28 68 6f 6c 64 20 | #1, "FF|T (hold |
|00000130| 62 75 74 74 6f 6e 20 74 | 6f 20 65 78 69 74 29 22 |button t|o exit)"|
|00000140| 2c 28 34 2c 33 38 29 2d | 28 36 34 30 2c 34 38 30 |,(4,38)-|(640,480|
|00000150| 29 3a f0 28 20 31 30 30 | 00 00 00 3a 00 07 ff bc |):.( 100|...:....|
|00000160| 00 00 f0 64 20 30 2c 20 | 5f 63 61 73 65 49 6e 73 |...d 0, |_caseIns|
|00000170| 65 6e 73 69 74 69 76 65 | 20 5f 73 74 72 52 65 73 |ensitive| _strRes|
|00000180| 6f 75 72 63 65 20 5f 6d | 61 63 73 62 75 67 4c 61 |ource _m|acsbugLa|
|00000190| 62 65 6c 73 00 00 00 5a | 00 08 ff c4 00 00 f0 1b |bels...Z|........|
|000001a0| 20 f4 13 20 41 2d 5a 3a | f0 13 20 20 20 20 20 20 | .. A-Z:|..      |
|000001b0| 20 46 46 54 20 49 53 20 | 41 28 49 29 2b 41 28 49 | FFT IS |A(I)+A(I|
|000001c0| 2b 31 29 2c 41 28 49 29 | 2d 41 28 49 2b 31 29 20 |+1),A(I)|-A(I+1) |
|000001d0| 57 49 54 48 20 61 20 50 | 45 52 46 45 43 54 20 53 |WITH a P|ERFECT S|
|000001e0| 48 55 46 46 4c 45 2d 73 | 65 65 20 22 66 6f 6c 64 |HUFFLE-s|ee "fold|
|000001f0| 22 00 00 3a 00 09 ff a4 | 00 00 f0 1f 20 f0 66 3a |"..:....|.... .f:|
|00000200| 20 20 20 20 20 6f 72 64 | 65 72 3d 39 f0 5a 20 32 |     ord|er=9.Z 2|
|00000210| 2a 2a 39 20 3d 20 35 31 | 32 20 70 6f 69 6e 74 73 |**9 = 51|2 points|
|00000220| 20 74 6f 20 74 72 61 6e | 73 6f 72 6d 00 00 00 5a | to tran|sorm...Z|
|00000230| 00 0a ff c4 00 00 4e 3d | 32 5e 6f 72 64 65 72 3a |......N=|2^order:|
|00000240| 4d 3d 4e 2f 32 3a f0 0a | 20 50 25 28 31 32 30 30 |M=N/2:..| P%(1200|
|00000250| 29 2c 41 28 31 32 30 30 | 29 3a 70 26 3d f4 01 28 |),A(1200|):p&=..(|
|00000260| 50 25 28 30 29 29 f0 5a | 20 20 20 20 20 20 20 20 |P%(0)).Z|        |
|00000270| 20 20 20 3a 44 49 4d 20 | 50 25 28 32 2a 4e 2b 34 |   :DIM |P%(2*N+4|
|00000280| 29 2c 41 28 32 2a 4e 29 | 00 00 00 4e 00 0b ff a4 |),A(2*N)|...N....|
|00000290| 00 00 50 25 28 30 29 3d | 4e 2a 34 2b 31 30 3a 50 |..P%(0)=|N*4+10:P|
|000002a0| 25 28 31 29 3d 31 3a 50 | 25 28 32 29 3d 31 3a 50 |%(1)=1:P|%(2)=1:P|
|000002b0| 25 28 33 29 3d 35 30 30 | 3a 50 25 28 34 29 3d 31 |%(3)=500|:P%(4)=1|
|000002c0| 30 30 30 3a 4b 21 3d 33 | 2e 31 34 31 35 39 2f 31 |000:K!=3|.14159/1|
|000002d0| 32 38 21 3a 5a 21 3d 31 | 00 00 00 26 00 0c ff b0 |28!:Z!=1|...&....|
|000002e0| fe 00 f0 01 20 4a 3d 30 | 20 f6 04 20 4e 2d 31 3a |.... J=0| .. N-1:|
|000002f0| 50 25 28 4a 2b 4a 2b 36 | 29 3d 4a 3a f0 07 20 4a |P%(J+J+6|)=J:.. J|
|00000300| 00 00 00 56 00 0d ff d8 | 00 02 22 61 67 61 69 6e |...V....|.."again|
|00000310| 22 53 3d 31 3a f0 01 20 | 49 3d 31 20 f6 04 20 4e |"S=1:.. |I=1 .. N|
|00000320| f0 5a 20 67 69 76 65 20 | 74 68 65 20 66 75 6e 63 |.Z give |the func|
|00000330| 74 69 6f 6e 73 20 61 20 | 6c 69 74 74 6c 65 20 76 |tions a |little v|
|00000340| 61 72 69 65 74 79 20 77 | 69 74 68 20 5a 20 70 61 |ariety w|ith Z pa|
|00000350| 72 61 6d 65 74 65 72 20 | 00 00 00 30 00 0e ff a8 |rameter |...0....|
|00000360| 02 02 f0 13 20 20 20 20 | 20 20 20 74 68 65 20 20 |....    |   the  |
|00000370| 66 75 6e 63 74 69 6f 6e | 20 74 6f 20 62 65 20 74 |function| to be t|
|00000380| 72 61 6e 73 66 6f 72 6d | 65 64 00 00 00 4a 00 0f |ransform|ed...J..|
|00000390| ff ce 02 02 41 28 49 29 | 3d 33 32 2e 30 2a 28 f4 |....A(I)|=32.0*(.|
|000003a0| 16 28 49 2a 4b 21 29 2b | f4 1a 28 28 5a 21 2b 31 |.(I*K!)+|..((Z!+1|
|000003b0| 29 2a 49 2a 4b 21 29 2b | 28 f4 1b 28 28 5a 21 2b |)*I*K!)+|(..((Z!+|
|000003c0| 35 29 2a 49 2a 4b 21 29 | 29 2b f4 19 28 2d 49 2a |5)*I*K!)|)+..(-I*|
|000003d0| 4b 21 2f 32 29 29 00 00 | 00 30 00 10 ff b4 02 02 |K!/2))..|.0......|
|000003e0| f0 5a 20 20 20 20 20 20 | 20 20 20 20 20 20 73 6f |.Z      |      so|
|000003f0| 6d 65 20 6f 74 68 65 72 | 20 66 75 6e 63 74 69 6f |me other| functio|
|00000400| 6e 73 20 74 6f 20 74 72 | 79 00 00 3c 00 11 ff ce |ns to tr|y..<....|
|00000410| 02 02 f0 5a 61 28 69 29 | 3d 45 58 50 28 31 31 2e |...Za(i)|=EXP(11.|
|00000420| 30 2a 28 52 4e 44 28 31 | 30 30 30 29 5c 31 30 30 |0*(RND(1|000)\100|
|00000430| 30 2e 30 2d 2e 35 29 29 | 2b 61 28 49 29 2d 31 30 |0.0-.5))|+a(I)-10|
|00000440| 30 2e 30 27 20 20 00 00 | 00 5a 00 12 ff c2 02 02 |0.0'  ..|.Z......|
|00000450| f0 5a 41 28 49 29 3d 33 | 32 2a 28 41 42 53 28 28 |.ZA(I)=3|2*(ABS((|
|00000460| 49 2d 5a 21 2f 35 29 20 | 4d 4f 44 20 5a 21 29 2f |I-Z!/5) |MOD Z!)/|
|00000470| 5a 21 2b 43 4f 53 28 28 | 5a 21 2b 31 29 2a 49 2a |Z!+COS((|Z!+1)*I*|
|00000480| 4b 21 29 2b 28 53 49 4e | 28 28 5a 21 2b 35 29 2a |K!)+(SIN|((Z!+5)*|
|00000490| 49 2a 4b 21 29 29 2b 53 | 49 4e 28 49 2a 4b 21 2f |I*K!))+S|IN(I*K!/|
|000004a0| 32 29 29 00 00 6c 00 13 | ff a4 02 02 f0 5a 41 28 |2))..l..|.....ZA(|
|000004b0| 49 29 3d 31 30 2a 28 28 | 49 2b 5a 21 2d 31 32 38 |I)=10*((|I+Z!-128|
|000004c0| 29 2f 32 35 36 21 2a 53 | 51 52 28 49 2a 4b 21 29 |)/256!*S|QR(I*K!)|
|000004d0| 2b 32 5e 28 28 49 2d 36 | 34 2b 5a 21 2a 35 29 2f |+2^((I-6|4+Z!*5)/|
|000004e0| 31 32 38 21 29 2b 43 4f | 53 28 28 5a 21 2b 31 29 |128!)+CO|S((Z!+1)|
|000004f0| 2a 49 2a 4b 21 29 2b 28 | 52 4e 44 28 31 30 30 30 |*I*K!)+(|RND(1000|
|00000500| 29 2f 31 30 30 30 2e 30 | 2d 2e 35 29 2f 32 21 29 |)/1000.0|-.5)/2!)|
|00000510| 00 00 00 38 00 14 ff 92 | 02 02 f0 5a 61 28 69 29 |...8....|...Za(i)|
|00000520| 3d 28 28 69 2a 33 39 29 | 20 4d 4f 44 20 31 30 31 |=((i*39)| MOD 101|
|00000530| 29 2b 45 58 50 28 5a 21 | 2a 43 4f 53 28 69 2f 31 |)+EXP(Z!|*COS(i/1|
|00000540| 35 30 2e 30 29 2a 35 2e | 30 29 00 00 00 54 00 15 |50.0)*5.|0)...T..|
|00000550| ff c6 02 02 f0 5a 41 28 | 49 29 3d 33 32 2e 30 2a |.....ZA(|I)=32.0*|
|00000560| 28 28 49 20 4d 4f 44 20 | 5a 21 29 2f 5a 21 2b 43 |((I MOD |Z!)/Z!+C|
|00000570| 4f 53 28 28 5a 21 2b 31 | 29 2a 49 2a 4b 21 29 2b |OS((Z!+1|)*I*K!)+|
|00000580| 28 53 49 4e 28 28 5a 21 | 2b 35 29 2a 49 2a 4b 21 |(SIN((Z!|+5)*I*K!|
|00000590| 29 29 2b 41 54 4e 28 49 | 2a 4b 21 2f 32 2e 30 29 |))+ATN(I|*K!/2.0)|
|000005a0| 29 00 00 4c 00 16 ff aa | 00 00 f0 07 20 69 3a 5a |)..L....|.... i:Z|
|000005b0| 21 3d 5a 21 2b 32 3a 6e | 30 3d 4e 3a f0 11 20 22 |!=Z!+2:n|0=N:.. "|
|000005c0| 64 69 73 70 6c 61 79 22 | 3a f0 31 20 40 28 31 30 |display"|:.1 @(10|
|000005d0| 2c 30 29 20 22 6f 72 69 | 67 69 6e 61 6c 20 66 75 |,0) "ori|ginal fu|
|000005e0| 6e 63 74 69 6f 6e 22 3a | f0 35 20 37 30 30 00 00 |nction":|.5 700..|
|000005f0| 00 40 00 17 ff b2 00 02 | f0 01 20 49 3d 31 20 f6 |.@......|.. I=1 .|
|00000600| 04 20 32 2a 6f 72 64 65 | 72 3a f0 0f 20 28 69 20 |. 2*orde|r:.. (i |
|00000610| f6 0a 20 32 29 20 3d 20 | 30 20 f6 05 20 6e 30 3d |.. 2) = |0 .. n0=|
|00000620| 4e 20 3a f0 15 20 6e 30 | 3d 30 3a 53 3d 53 2a 32 |N :.. n0|=0:S=S*2|
|00000630| 00 00 00 46 00 18 ff be | 02 02 f0 11 20 22 66 6f |...F....|.... "fo|
|00000640| 6c 64 22 3a f0 0f 20 69 | 20 3d 20 6f 72 64 65 72 |ld":.. i| = order|
|00000650| 20 f6 05 20 f0 31 20 40 | 28 31 30 2c 30 29 20 22 | .. .1 @|(10,0) "|
|00000660| 20 46 46 54 20 6f 66 20 | 66 75 6e 63 74 69 6f 6e | FFT of |function|
|00000670| 22 3a f0 35 20 39 30 30 | 00 00 00 40 00 19 ff b8 |":.5 900|...@....|
|00000680| 00 00 f0 07 20 49 3a f0 | 31 20 40 28 31 30 2c 30 |.... I:.|1 @(10,0|
|00000690| 29 20 22 6f 72 69 67 69 | 6e 61 6c 20 66 75 6e 63 |) "origi|nal func|
|000006a0| 74 69 6f 6e 20 63 6f 6e | 76 6f 6c 76 65 64 20 62 |tion con|volved b|
|000006b0| 61 63 6b 20 61 67 61 69 | 6e 22 00 00 00 2c 00 1a |ack agai|n"...,..|
|000006c0| ff be 00 00 f0 0f 20 20 | f2 0b 28 5f 64 6f 77 6e |......  |..(_down|
|000006d0| 29 3d 30 20 f6 05 20 f0 | 0d 20 22 61 67 61 69 6e |)=0 .. .|. "again|
|000006e0| 22 20 3a f0 15 20 f0 1f | 00 00 00 6a 00 1b ff d2 |" :.. ..|...j....|
|000006f0| 00 00 f0 13 20 20 20 20 | 20 20 20 20 46 4f 4c 44 |....    |    FOLD|
|00000700| 20 69 73 20 74 68 65 20 | 65 73 73 65 6e 63 65 20 | is the |essence |
|00000710| 6f 66 20 46 46 54 21 20 | 20 2d 66 6f 6c 64 20 66 |of FFT! | -fold f|
|00000720| 72 6f 6d 20 6c 6f 77 65 | 72 20 68 61 6c 66 20 74 |rom lowe|r half t|
|00000730| 6f 20 75 70 70 65 72 20 | 6f 72 20 75 70 70 65 72 |o upper |or upper|
|00000740| 20 74 6f 20 6c 6f 77 65 | 72 20 6f 72 64 65 72 20 | to lowe|r order |
|00000750| 74 69 6d 65 73 00 00 58 | 00 1c ff 94 fe 00 22 66 |times..X|......"f|
|00000760| 6f 6c 64 22 4c 3d 6e 30 | 2b 31 3a f0 01 20 4a 3d |old"L=n0|+1:.. J=|
|00000770| 31 2b 4e 2d 6e 30 20 f6 | 04 20 4d 2b 4e 2d 6e 30 |1+N-n0 .|. M+N-n0|
|00000780| 3a 41 28 4a 29 3d 41 28 | 4c 29 2b 41 28 4c 2b 31 |:A(J)=A(|L)+A(L+1|
|00000790| 29 3a 41 28 4a 2b 4d 29 | 3d 41 28 4c 29 2d 41 28 |):A(J+M)|=A(L)-A(|
|000007a0| 4c 2b 31 29 3a 4c 3d 4c | 2b 32 3a f0 07 20 4a 00 |L+1):L=L|+2:.. J.|
|000007b0| 00 4c 00 1d ff a6 fe 00 | 22 64 69 73 70 6c 61 79 |.L......|"display|
|000007c0| 22 f0 04 3a 4a 35 3d 33 | 3a f0 01 20 4b 3d 31 20 |"..:J5=3|:.. K=1 |
|000007d0| f6 04 20 4e 3a 4a 35 3d | 4a 35 2b 32 3a 50 25 28 |.. N:J5=|J5+2:P%(|
|000007e0| 4a 35 29 3d 50 25 28 33 | 29 2f 32 2d 41 28 4b 2b |J5)=P%(3|)/2-A(K+|
|000007f0| 4e 2d 6e 30 29 2f 53 3a | f0 07 20 4b 00 00 00 1c |N-n0)/S:|.. K....|
|00000800| 00 1e ff b2 00 00 f0 2c | 20 f9 52 28 40 70 26 29 |.......,| .R(@p&)|
|00000810| 3a f0 35 20 32 30 30 3a | f0 12 00 00 00 0a 00 1f |:.5 200:|........|
|00000820| ff e2 00 00 f0 1f 00 00 | 00 0a ff ff ff f4 ff e6 |........|........|
|00000830| f0 12 00 00             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+